BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/P/Phone Book Stack.cpt/Phone Book Stack/Phone Book-Dev/background_2676.xml

Extensible Markup Language | 1992-05-03 | 107KB | 2,525 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2676</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3744.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3320.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>21</left>
            <top>37</top>
            <right>81</right>
            <bottom>57</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Salutation</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>81</left>
            <top>37</top>
            <right>145</right>
            <bottom>57</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>FirstName</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>144</left>
            <top>37</top>
            <right>193</right>
            <bottom>57</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>MiddleName</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>192</left>
            <top>37</top>
            <right>265</right>
            <bottom>57</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>LastName</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>265</left>
            <top>37</top>
            <right>301</right>
            <bottom>57</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Ext</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>81</left>
            <top>56</top>
            <right>301</right>
            <bottom>76</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>JobTitle</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>81</left>
            <top>75</top>
            <right>301</right>
            <bottom>95</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Company</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>21</left>
            <top>113</top>
            <right>176</right>
            <bottom>132</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>WorkAddress1</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>176</left>
            <top>113</top>
            <right>301</right>
            <bottom>132</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>WorkAddress2</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>50</left>
            <top>131</top>
            <right>237</right>
            <bottom>150</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>WorkCity</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>273</left>
            <top>131</top>
            <right>301</right>
            <bottom>150</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>WorkState</name>
        <script>on keyDown whichKeyif (charToNum(whichKey)>=97) and (charToNum(whichKey)<=122) thentype numToChar(charToNum(whichKey)-32)else pass keyDownend keyDownon closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>68</left>
            <top>149</top>
            <right>197</right>
            <bottom>168</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>WorkCountry</name>
        <script>on closeFieldUpdateItend closeField</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>222</left>
            <top>149</top>
            <right>301</right>
            <bottom>168</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>WorkZip</name>
        <script>on closeFieldif (fld WorkZip is not empty) and (fld WorkCountry = "U.S.A.") and (the number of chars of fld WorkZip > 5) and (char 6 of fld WorkZip <> "-") thenselect after char 5 of fld WorkZiptype "-"&tabend ifUpdateItend closeField</script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>68</left>
            <top>167</top>
            <right>173</right>
            <bottom>186</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>WorkPhone1</name>
        <script>on closeFieldif (the number of chars in fld WorkPhone1 > 6) and ("-" is not in fld WorkPhone1) thenif char 1 of fld WorkPhone1 = "(" then select after char 9 of fld WorkPhone1else select after char 3 of fld WorkPhone1type "-"&tabend ifend closeField</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>196</left>
            <top>167</top>
            <right>301</right>
            <bottom>186</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>WorkPhone2</name>
        <script>on closeFieldif (the number of chars in fld WorkPhone2 > 6) and ("-" is not in fld WorkPhone2) thenif char 1 of fld WorkPhone2 = "(" then select after char 9 of fld WorkPhone2else select after char 3 of fld WorkPhone2type "-"&tabend ifend closeField</script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>21</left>
            <top>215</top>
            <right>175</right>
            <bottom>234</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HomeAddress1</name>
        <script></script>
    </part>
    <part>
        <id>17</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>175</left>
            <top>215</top>
            <right>301</right>
            <bottom>234</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HomeAddress2</name>
        <script></script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>50</left>
            <top>233</top>
            <right>237</right>
            <bottom>252</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HomeCity</name>
        <script></script>
    </part>
    <part>
        <id>19</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>273</left>
            <top>233</top>
            <right>301</right>
            <bottom>252</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HomeState</name>
        <script>on keyDown whichKeyif (charToNum(whichKey)>=97) and (charToNum(whichKey)<=122) thentype numToChar(charToNum(whichKey)-32)else pass keyDownend keyDown</script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>68</left>
            <top>251</top>
            <right>197</right>
            <bottom>270</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HomeCountry</name>
        <script></script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>222</left>
            <top>251</top>
            <right>301</right>
            <bottom>270</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HomeZip</name>
        <script>on closeFieldif (fld HomeZip is not empty) and (fld HomeCountry = "U.S.A.") and (the number of chars of fld HomeZip > 5) and (char 6 of fld HomeZip <> "-") thenselect after char 5 of fld HomeZiptype "-"&tabend ifend closeField</script>
    </part>
    <part>
        <id>22</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>68</left>
            <top>269</top>
            <right>173</right>
            <bottom>288</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HomePhone1</name>
        <script>on closeFieldif (the number of chars in fld HomePhone1 > 6) and ("-" is not in fld HomePhone1) thenif char 1 of fld HomePhone1 = "(" then select after char 9 of fld HomePhone1else select after char 3 of fld HomePhone1type "-"&tabend ifend closeField</script>
    </part>
    <part>
        <id>23</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>196</left>
            <top>269</top>
            <right>301</right>
            <bottom>288</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HomePhone2</name>
        <script>on closeFieldif (the number of chars in fld HomePhone2 > 6) and ("-" is not in fld HomePhone2) thenif char 1 of fld HomePhone2 = "(" then select after char 9 of fld HomePhone2else select after char 3 of fld HomePhone2type "-"&tabend ifend closeField</script>
    </part>
    <part>
        <id>24</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>370</left>
            <top>26</top>
            <right>437</right>
            <bottom>42</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Birthday</name>
        <script>on closeFieldif (me is not empty) and ("/" is not in me) thenput "/" after char 2 of meput "/" after char 5 of meselect field me + 1end ifend closeField</script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>370</left>
            <top>43</top>
            <right>437</right>
            <bottom>59</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Anniversary</name>
        <script>on closeFieldif (me is not empty) and ("/" is not in me) thenput "/" after char 2 of meput "/" after char 5 of meselect field me + 1end ifend closeField</script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>339</left>
            <top>74</top>
            <right>500</right>
            <bottom>119</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Family</name>
        <script></script>
    </part>
    <part>
        <id>27</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>482</left>
            <top>41</top>
            <right>500</right>
            <bottom>53</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>14</textSize>
        <textStyle>bold</textStyle>
        <textHeight>14</textHeight>
        <name>BdayCard</name>
        <script>on mouseUpif fld BdayCard is empty thenput "‚àö" into targetelse put "" into targetautoSelend mouseUp</script>
    </part>
    <part>
        <id>28</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>482</left>
            <top>58</top>
            <right>500</right>
            <bottom>70</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>14</textSize>
        <textStyle>bold</textStyle>
        <textHeight>14</textHeight>
        <name>XmasCard</name>
        <script>on mouseUpif fld XmasCard is empty thenput "‚àö" into targetelse put "" into targetautoSelend mouseUp</script>
    </part>
    <part>
        <id>29</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>332</left>
            <top>149</top>
            <right>508</right>
            <bottom>204</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Notes</name>
        <script></script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>332</left>
            <top>207</top>
            <right>508</right>
            <bottom>300</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>AddressBlock</name>
        <script>on mouseUpUpdateItend mouseUp</script>
    </part>
    <part>
        <id>31</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>210</left>
            <top>303</top>
            <right>306</right>
            <bottom>316</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>CardNumber</name>
        <script>on mouseUpask "Go to which card number?"visual stretch from centerif it < 1 thengo first cdexit mouseUpelse if it > number of cds thengo last cdexit mouseUpelse go cd round(it)autoselend mouseUp</script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>21</left>
            <top>22</top>
            <right>75</right>
            <bottom>37</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Salutation</name>
        <script>on mouseDownglobal PopUpList,newEntry,PopResultput "Mr."&return&"Mrs."&return&"Mr. & Mrs."&return&"Ms."&return&"Miss"&return&"Dr."&return&"Master"&return&"Professor" into PopUpList-- Custom SalutationPopUpif PopResult <> 0 thenselect text of fld Salutationtype newEntry & tabend ifend mouseDown</script>
    </part>
    <part>
        <id>33</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>265</left>
            <top>22</top>
            <right>288</right>
            <bottom>37</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Ext</name>
        <script>on mouseDownglobal PopUpList,newEntry,PopResultput "Sr."&return&"Jr."&return&"II"&return&"III"&return&"IV"&return&"(-"&return&"CPA"&return&"D.D.S."&return&"Esq."&return&"LVN"&return&"M.D."&return&"O.D."&return&"Ph.D."&return&"R.D.H."&return&"R.N." into PopUpList-- Custom ExtensionPopUpif PopResult <> 0 thenselect text of fld Exttype newEntry & tabend ifend mouseDown</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>71</right>
            <bottom>72</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Job Title</name>
        <script>on mouseDownglobal PopUpList,newEntry,PopResultput "Executives,Manager,General Manager,(-,Chief Administrative Officer,Chief Executive Officer,Chief of Staff,Chief Operations Officer,(-," into PopUpListput "Director,Executive Director,(-,Vice-President,Senior Vice-President,President,(-,Partner,Owner,Chairman of the Board,Chairperson of the Board,Chairwoman of the Board" after PopUpListput return&"Govt-City & County,City Attorney,City Auditor,City Clerk,City Manager,Controller,Councilmember,Finance Director,Mayor,Treasurer,Vice-Mayor,(-,Commissioner,County Administrator,County Assessor,County Auditor,County Counsel,Judge,Planning Director" after PopUpListput return&"Govt-State & Federal,Assemblymember,Attorney General,Governor,Legislative Analyst,Lieutenant Governor,Senator,(-,Congressman,Congresswoman"&return&"(-" after PopUpList-- Custom Job Titleput return&"Account Representative"&return&"Accountant"&return&"Assistant"&return&"Attorney-at-Law"&return&"Consultant"&return&"Counselor"&return&"Financial Analyst"&return&"Loan Officer"&return&"Physician"&return&"Salesperson"&return&"Secretary"&return&"Supervisor" after PopUpListPopUpif PopResult <> 0 thenselect text of fld JobTitletype newEntry & tabend ifend mouseDown</script>
    </part>
    <part>
        <id>35</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>21</left>
            <top>98</top>
            <right>99</right>
            <bottom>113</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Work Address 1</name>
        <script>on mouseDownglobal whichAddressput "WorkAddress1" into whichAddressAddressListend mouseDown</script>
    </part>
    <part>
        <id>36</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>175</left>
            <top>98</top>
            <right>230</right>
            <bottom>113</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Address 2</name>
        <script>on mouseDownglobal whichAddressput "WorkAddress2" into whichAddressAddressListend mouseDown</script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>21</left>
            <top>131</top>
            <right>50</right>
            <bottom>146</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>City</name>
        <script>on mouseDownglobal whichCity,whichState,whichCountryput "WorkCity" into whichCityput "WorkState" into whichStateput "WorkCountry" into whichCountryCityListend mouseDown</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>238</left>
            <top>131</top>
            <right>273</right>
            <bottom>146</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>State</name>
        <script>on mouseDownglobal whichState,whichCountryput "WorkState" into whichStateput "WorkCountry" into whichCountryStateListend mouseDown</script>
    </part>
    <part>
        <id>39</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>21</left>
            <top>149</top>
            <right>68</right>
            <bottom>164</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Country</name>
        <script>on mouseDownglobal whichCountryput "WorkCountry" into whichCountryCountryListend mouseDown</script>
    </part>
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>43</left>
            <top>168</top>
            <right>68</right>
            <bottom>182</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Ph1</name>
        <script>on mouseDownglobal whichPhoneput "WorkPhone1" into whichPhoneif the optionKey is up then PhoneListelse AreaSearchend mouseDown</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>171</left>
            <top>168</top>
            <right>196</right>
            <bottom>182</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Ph2</name>
        <script>on mouseDownglobal whichPhoneput "WorkPhone2" into whichPhoneif the optionKey is up then PhoneListelse AreaSearchend mouseDown</script>
    </part>
    <part>
        <id>42</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>21</left>
            <top>200</top>
            <right>102</right>
            <bottom>215</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Home Address 1</name>
        <script>on mouseDownglobal whichAddressput "HomeAddress1" into whichAddressAddressListend mouseDown</script>
    </part>
    <part>
        <id>43</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>175</left>
            <top>200</top>
            <right>230</right>
            <bottom>215</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Address 2</name>
        <script>on mouseDownglobal whichAddressput "HomeAddress2" into whichAddressAddressListend mouseDown</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>21</left>
            <top>233</top>
            <right>50</right>
            <bottom>248</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>City</name>
        <script>on mouseDownglobal whichCity,whichState,whichCountryput "HomeCity" into whichCityput "HomeState" into whichStateput "HomeCountry" into whichCountryCityListend mouseDown</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>238</left>
            <top>233</top>
            <right>273</right>
            <bottom>248</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>State</name>
        <script>on mouseDownglobal whichState,whichCountryput "HomeState" into whichStateput "HomeCountry" into whichCountryStateListend mouseDown</script>
    </part>
    <part>
        <id>46</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>21</left>
            <top>251</top>
            <right>68</right>
            <bottom>266</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Country</name>
        <script>on mouseDownglobal whichCountryput "HomeCountry" into whichCountryCountryListend mouseDown</script>
    </part>
    <part>
        <id>47</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>43</left>
            <top>269</top>
            <right>68</right>
            <bottom>284</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Ph1</name>
        <script>on mouseDownglobal whichPhoneput "HomePhone1" into whichPhoneif the optionKey is up then PhoneListelse AreaSearchend mouseDown</script>
    </part>
    <part>
        <id>48</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>173</left>
            <top>269</top>
            <right>196</right>
            <bottom>284</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Ph2</name>
        <script>on mouseDownglobal whichPhoneput "HomePhone2" into whichPhoneif the optionKey is up then PhoneListelse AreaSearchend mouseDown</script>
    </part>
    <part>
        <id>49</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>312</left>
            <top>22</top>
            <right>325</right>
            <bottom>282</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>group</textStyle>
        <name>Initial</name>
        <script>on mouseUpput NumToChar((item 2 of the clickloc - item 2 of rect of target) div 10 + 65) into lastInitiallock screengo next cdfind lastInitial in fld LastNameif the result = "not found" thenplay harpsichord "ee c"go prev cdend ifunlock screenend mouseUp</script>
    </part>
    <part>
        <id>50</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>342</left>
            <top>136</top>
            <right>400</right>
            <bottom>148</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Expand Note</name>
        <script>on mouseUpif item 4 of rect of fld "Notes"<250 thenhide bg btn "Home Env"hide bg btn "Work Env"set rect of fld "AddressBlock" to 0,0,0,0set rect of fld "Notes" to 332,149,508,300set name of me to "Shrink Note"elseset rect of fld "Notes" to 332,149,508,204set rect of fld "AddressBlock" to 332,207,508,300show bg btn "Home Env"show bg btn "Work Env"set name of me to "Expand Note"end ifend mouseUp</script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>20</left>
            <top>169</top>
            <right>43</right>
            <bottom>188</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>10610</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Dialer1</name>
        <script>on mouseUpglobal phoneStringput fld WorkPhone1 into phoneStringdialItend mouseUp</script>
    </part>
    <part>
        <id>52</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>20</left>
            <top>271</top>
            <right>43</right>
            <bottom>290</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>10610</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Dialer2</name>
        <script>on mouseUpglobal phoneStringput fld HomePhone1 into phoneStringdialItend mouseUp</script>
    </part>
    <part>
        <id>53</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>9</left>
            <top>303</top>
            <right>87</right>
            <bottom>318</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Import/Export</name>
        <script>on mouseDownglobal PopUpList,newEntry,PopResultset lockMessages to trueset lockRecent to trueput "Export,Names Only List,Birthday List,Anniversary List,(-,Work Labels,Home Labels,(-,Christmas Cards,Address Book,Custom Report"&return&"Import,Text,Address,Addresses,Focal Point II,Old Ph Book" into PopUpListPopUpif item 1 of PopResult = 2 thenimportItexit mouseDownend ifif PopResult <> 0 thenanswer "Export the data from your Phone Stack to a text file?" with "OK" or "Cancel"if it = "Cancel" thenplay harpsichord "ee c"exit mouseDownend ifput number of flds into nfldsput number of cds into ncdsif newEntry ≠ "Custom Report" thenrepeat with z = 6 to 31hide fld zend repeatend ifif newEntry = "Names Only List" then put "Names" into exTypeif newEntry = "Birthday List" thenput "Birthday" into exTypeshow fld 24end ifif newEntry = "Anniversary List" thenput "Anniversary" into exTypeshow fld 25end ifif newEntry = "Work Labels" thenput "Work" into exTyperepeat with z = 6 to 11show fld zend repeatshow fld 13end ifif (newEntry = "Home Labels") or (newEntry = "Christmas Cards") thenput "Home" into exTyperepeat with z = 16 to 19show fld zend repeatshow fld 21end ifif newEntry = "Home Labels" then put "Home" into exTypeif newEntry = "Christmas Cards" then put "XMasCard" into exTypeif newEntry = "Address Book" thenput "Book" into exTyperepeat with z = 6 to 29show fld zend repeatend ifif newEntry = "Custom Report" thenput "Custom" into exTypeput empty into itrepeat until it = "No"answer "Exclude a field from your exported Report?" with "No" or "Yes"if it = "Yes" thenanswer "Click on the field you wish to exclude!" with "Yes, Boss"set cursor to Bombchoose fld toolwait until the mouseClickput the clickloc into invisiFieldchoose browse toolPut "none" into FieldAwayRepeat with Fnum = 1 to nfldsget the rect of fld Fnumput it into Frectif ((item 2 of invisiField) >= (item 2 of Frect)) and ((item 2 of invisiField) <= (item 4 of Frect)) thenif ((item 1 of invisiField) >= (item 1 of Frect)) and ((item 1 of invisiField) <= (item 3 of Frect)) thenget the short name of fld Fnumput it into FieldAwayend ifend ifend repeatif (FieldAway = "none") thenplay harpsichord "ee c"answer "You didn’t click on a field.  Please try again!" with "Ooops!"elsehide fld FieldAwayend ifend ifend repeatend ifanswer "Export a selected range of cards, marked cards, or all cards?" with "Range" or "Marked" or "All Cards"put 1 into cardBeginif it = "Marked" then put markCards into exKindif it = "Range" thenput 0 into cardBeginrepeat until (cardBegin >= 1) and (cardBegin <= ncds)ask "Select the first card to export from the range of 1 to"&&ncds&":"put round(it) into cardBeginend repeatput 0 into cardEndrepeat until (cardEnd >= cardBegin) and (cardEnd <= ncds)ask "Select the last card to export from the range of"&&cardBegin&&"to"&&ncds&":"put round(it) into cardEndend repeatput cardEnd - cardBegin +1 into ncdsend ifgo cd cardBeginlock screenanswer "Delete superfluous tab & return characters at the end of fields? (This process adds time to the export.)" with "Cancel" or "Yes" or "No"if it = "Cancel" thenplay harpsichord "ee c"exit mouseDownend ifif it = "Yes" thenrepeat with j = 1 to ncdsput cardBegin+j-1 into mput "Stripping extra tabs/returns from card"&&m&&"—> press command-period to stop!"set cursor to watchrepeat with i = 1 to nfldsif visible of fld i is false then next repeatif (last char of fld i is return) or (last char of fld i is tab) then delete last char of fld iend repeatend repeatend ifgo cd cardBeginput NewFileName("Name Your Text Export File:",exType&"Text") into fileExpif fileExp = "" thenplay harpsichord "ee c"exit mouseDownend ifopen file fileExpput "Exporting field names —> press command-period to stop!"put 0 into visiNamesrepeat with i = 1 to nfldsif visible of fld i is true then put visiNames + 1 into visiNamesend repeatrepeat with i = 1 to nfldsif visible of fld i is true thenput visiNames - 1 into visiNamesput the short name of fld i into tempif visiNames>0 then write temp&tab to file fileExpelse write temp&return to file fileExpend ifend repeatput 0 into rvisiFldsrepeat with i = 1 to nfldsif visible of fld i is true then put rvisiFlds + 1 into rvisiFldsend repeatrepeat with j = 1 to ncdsput rvisiFlds into visiFldsput cardBegin+j-1 into mput "Exporting card"&&m&&"—> press command-period to stop!"if exKind = "markCards" thenif the marked of this cd is not true thengo next cdnext repeatend ifend ifif newEntry = "Birthday List" thenif fld Birthday is empty thengo next cdnext repeatend ifend ifif newEntry = "Anniversary List" thenif fld Anniversary is empty thengo next cdnext repeatend ifend ifif newEntry = "Work Labels" thenif fld WorkAddress1 is empty thengo next cdnext repeatend ifend ifif newEntry = "Home Labels" thenif fld HomeAddress1 is empty thengo next cdnext repeatend ifend ifif newEntry = "Christmas Cards" thenif fld XmasCard is empty thengo next cdnext repeatend ifend ifrepeat with i = 1 to nfldsif visible of fld i is true thenput visiFlds - 1 into visiFldsif newEntry = "Custom Report" thenput fld i into sput fixfld(s) into tempelseput fld i into tempend ifif visiFlds>0 then write temp&tab to file fileExpelse write temp&return to file fileExpend ifend repeatgo next cdend repeatclose file fileExpgo cd cardBeginset lockScreen to falseplay harpsichordput "All done! "&&ncds&&"cards successfully exported."end ifset lockMessages to falseset lockRecent to falseend mouseDownfunction fixfld sput false into quotedput false into hasquotesif offset(quote,s) <> 0 thenput true into quotedput true into hasquoteselseif offset(",",s) <> 0 thenput true into quotedelseif offset(tab,s) <> 0 thenput true into quotedelseif offset(return,s) <> 0 thenput true into quotedend ifend ifend ifend ifif hasquotes thenput empty into outstrput s into trepeatput offset(quote,t) into pif p = 0 thenput t after outstrexit repeatend ifput char 1 to p of t after outstrput quote after outstrput char p+1 to length(t) of t into tempput temp into tend repeatelseput s into outstrend ifif quoted thenreturn quote&outstr&quoteelsereturn outstrend ifend fixfldon importItglobal globterm,newEntry,PopResultset lockMessages to trueset lockRecent to trueif newEntry = "Text" thenanswer "Select a Text File to Import..." with "Cancel" or "OK"if it = "Cancel" thenplay harpsichord "ee c"exit importItend ifput FileName("TEXT") into impFileif impFile = "" thenplay harpsichord "ee c"exit importItend ifopen file impFileput 0 into nfldsput empty into fnamego to last cdlock screenset cursor to watchput "Counting fields in file —> press command-period to stop."put true into firstcharrepeatread from file impFile for 1if firstchar thenput false into firstcharif (it = quote) thenput getquoted(impFile) into fnameput globterm into itend ifend ifif it = tab or it = return thenadd 1 to nfldsput empty into fnameput true into firstcharif it = return thenexit repeatend ifelseif it is empty thenput "Error —> Got end of file!"play harpsichord "ee c"close file impFilechoose browse toolset editBkgnd to falseexit importItend ifput it after fnameend ifend repeatput number of bg flds into needif nflds <> need thenanswer "ERROR! This card has"&&need&&"fields, but the Text file selected has"&&nflds&"!"play harpsichord "ee c"close file impFileexit importItelseput false into doneend ifput false into needcardrepeat with i = 1 to nfldsif fld i <> empty then put true into needcardend repeatput 0 into ncdsrepeat until donerepeat with i = 1 to nfldsread from file impFile for 1if it = empty thenput true into doneexit repeatend ifif i = 1 thenadd 1 to ncdsput "Importing record"&&ncds&& "—> press command-period to stop."if needcard then doMenu "New Card"put true into needcardend ifif (it = quote) thenput getquoted(impFile) into cleanstringelseif it = tab or it = return thenput empty into cleanstringelseput it into cleanstringif i < nflds thenread from file impFile until tabelseread from file impFile until returnend ifput length(it) into lenput last char of it into terminatorif terminator = tab or terminator = return thenif len > 1 thenput char 1 to len - 1 of it after cleanstringend ifelseput it after cleanstringend ifend ifend ifput cleanstring into fld iend repeatend repeatclose file impFileset lockScreen to falseend ifif item 2 of PopResult ≠ 2 thenanswer "Import the data from your"&&newEntry&&"stack into the Phone Book stack?" with "Yes" or "No"if it = "No" thenplay harpsichord "ee c"exit importItend ifset lockMessages to trueif newEntry = "Address" then put "Address" into whichStackif newEntry = "Addresses" then put "Addresses" into whichStackif newEntry = "Focal Point II" then put "FP2•Directory" into whichStackif newEntry = "Old Ph Book" thenanswer "Select your old Phone Book stack so that it can be renamed to “Phone Book-Old”" with "OK" or "Cancel"if it = "Cancel" thenplay harpsichord "ee c"exit importItend iflock screendoMenu "Open Stack..."if char 2 of item 2 of the version of this stack<2 thenanswer "Sorry, but you must convert your old stack to HyperCard version 2" with "Convert It" or "Cancel"if it = "Cancel" thenplay harpsichord "ee c"exit importItelse doMenu "Convert Stack..."end ifset name of this stack to "Phone Book-Old"put "Phone Book-Old" into whichStackelselock screengo whichStackif the short name of this stack = "Phone Book" thenplay harpsichord "ee c"answer "You need to locate your"&&quote&whichStack&quote&&"stack.  Please try again!" with "I goofed."exit importItend ifend ifput the number of cards into ncdsif (newEntry = "Address") or (newEntry = "Focal Point II") thenrepeat with j = 1 to ncdsput "Importing card"&&the number of this cd&&"of"&&ncds&&"—> press command-period to stop."put fld 1 into addressFldput fld 2 into phoneFldput fld 3 into notesFldpush cdgo last cd of "Phone Book"show msgdoMenu "New Card"put line 1 of addressFld into nameListput nameList into fld 1stripNameput the number of lines of addressFld into lineTotif lineTot>1 thenput the number of words of line lineTot of addressFld into wordTotif wordTot>=3 thenput word 1 to (wordTot-2) of line lineTot of addressFld into fld WorkCityend ifif last char of fld WorkCity = "," then delete last char of fld WorkCityif wordTot>=2 thenput word (wordTot-1) of line lineTot of addressFld into fld WorkStateend ifput word wordTot of line lineTot of addressFld into fld WorkZipput 9 into fillFldrepeat until lineTot=2put lineTot-1 into lineTotif fillFld>=6 thenput line lineTot of addressFld into fld fillFldput fillFld-1 into fillFldend ifend repeatif the number of lines of addressFld>6 then put line 2 of addressFld after fld HomeAddress1if the number of lines of addressFld>7 then put line 3 of addressFld into fld HomeAddress2end ifput line 1 of phoneFld into fld WorkPhone1put line 2 of phoneFld into fld WorkPhone2put line 3 of phoneFld into fld HomePhone1put line 4 of phoneFld into fld HomePhone2if line 5 of phoneFld is not empty then put return&line 5 of phoneFld after fld Notesif line 6 of phoneFld is not empty then put return&line 6 of phoneFld after fld Notesput return&notesFld after fld Notesif j = ncds then exit repeatelsepop cdgo next cdend ifend repeatend ifif newEntry = "Addresses" thenput the number of cards of bg "Body" into ncdsrepeat with j = 1 to ncdsput "Importing card"&&the number of this cd&&"of"&&ncds&&"—> press command-period to stop."put fld 6 into nameListput fld 7 into fldmove7put fld 8 into fldmove8put fld 9 into CityStateFldput fld 10 into fldmove13put fld 11 into fldmove14put fld 12 into fldmove15put fld 13 into fldmove22put fld 14 into fldmove23put fld 16 into fldmove29push cdgo last cd of "Phone Book"show msgdoMenu "New Card"put nameList into fld 1stripNameput fldmove7 into fld 7put fldmove8 into fld 8if "," is in CityStateFld thenput CityStateFld into fld 10repeat until last char of fld 10 = ","delete last char of fld 10end repeatdelete last char of fld 10put CityStateFld into fld 11repeat until first char of fld 11 = ","delete first char of fld 11end repeatdelete first char of fld 11if first char of fld 11 = " " then delete first char of fld 11end ifif "," is not in CityStateFld thenput CityStateFld into fld 10delete last word of fld 10put last word of CityStateFld into fld 11end ifput fldmove13 into fld 13put fldmove14 into fld 14put fldmove15 into fld 15put fldmove22 into fld 22put fldmove23 into fld 23put fldmove29 into fld 29if j = ncds then exit repeatelsepop cdgo next cdend ifend repeatend ifif newEntry = "Old Ph Book" thenrepeat with j = 1 to ncdsput "Importing card"&&the number of this cd&&"of"&&ncds&&"—> press command-period to stop."put fld 1 into fldmove1put fld 2 into fldmove2put fld 3 into fldmove3put fld 4 into fldmove4put fld 5 into fldmove5put fld 6 into fldmove6put fld 7 into fldmove7put fld 8 into fldmove8put fld 9 into fldmove9put fld 10 into fldmove10put fld 11 into fldmove11put fld 12 into fldmove12put fld 13 into fldmove13put fld 14 into fldmove14put fld 15 into fldmove15put fld 16 into fldmove16put fld 17 into fldmove17put fld 18 into fldmove18put fld 19 into fldmove19put fld 20 into fldmove20put fld 21 into fldmove21put fld 22 into fldmove22put fld 23 into fldmove23put fld 24 into fldmove24put fld 25 into fldmove25put fld 26 into fldmove26put fld 27 into fldmove27put fld 28 into fldmove28put fld "Notes" into fldmove29push cdgo last cd of "Phone Book"show msgdoMenu "New Card"put fldmove1 into fld 1put fldmove2 into fld 2put fldmove3 into fld 3put fldmove4 into fld 4put fldmove5 into fld 5put fldmove6 into fld 6put fldmove7 into fld 7put fldmove8 into fld 8put fldmove9 into fld 9put fldmove10 into fld 10put fldmove11 into fld 11put fldmove12 into fld 12put fldmove13 into fld 13put fldmove14 into fld 14put fldmove15 into fld 15put fldmove16 into fld 16put fldmove17 into fld 17put fldmove18 into fld 18put fldmove19 into fld 19put fldmove20 into fld 20put fldmove21 into fld 21put fldmove22 into fld 22put fldmove23 into fld 23put fldmove24 into fld 24put fldmove25 into fld 25put fldmove26 into fld 26put fldmove27 into fld 27put fldmove28 into fld 28put fldmove29 into fld "Notes"if j = ncds then exit repeatelsepop cdgo next cdend ifend repeatend ifgo "Phone Book"set lockScreen to falseset lockMessages to falseplay harpsichordput "All done! "&&ncds&&"records successfully imported."end ifset lockMessages to falseset lockRecent to falseend importItfunction getquoted impFileglobal globtermput empty into cleanstringrepeatread from file impFile until quoteput length(it) into lenput it into tempstrread from file impFile for 1if it = tab or it = return thenput it into globtermif len > 1 thenput char 1 to len - 1 of tempstr after cleanstringend ifexit repeatelseput tempstr after cleanstringend ifend repeatreturn cleanstringend getquotedon stripNameput fld 1 into nameListput empty into fld 1put the number of words of nameList into nameTotif nameTot<3 thenput word 1 of nameList into fld FirstNameput word 2 of nameList into fld LastNameend ifif nameTot=3 thenput word 1 of nameList into fld FirstNameput word 2 of nameList into fld MiddleNameput word 3 of nameList into fld LastNameend ifif nameTot>3 thenput word 1 of nameList into fld Salutationput word 2 of nameList into fld FirstNameput word 3 of nameList into fld MiddleNameput word 4 of nameList into fld LastNameput word 5 of nameList into fld Extput word 6 to nameTot of nameList into fld Notesend ifif last char of fld LastName="," then delete last char of fld LastNameend stripName</script>
    </part>
    <part>
        <id>54</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>9</left>
            <top>320</top>
            <right>87</right>
            <bottom>335</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Help/Configure</name>
        <script>on mouseDownpush cdglobal PopUpList,newEntry,PopResultput "Help"&return&"Configure"&return&"Register" into PopUpListPopUpif PopResult <> 0 thenif newEntry = "Help" thenvisual zoom opengo "Phone Book Help"end ifif newEntry = "Configure" thenvisual zoom opengo cd "Configuration Card" of "Phone Book Help"end ifif newEntry = "Register" thenvisual zoom opengo cd "Reg Card" of "Phone Book Help"end ifend ifend mouseDown</script>
    </part>
    <part>
        <id>55</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>95</left>
            <top>303</top>
            <right>134</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>10181</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Sort</name>
        <script>on mouseUpanswer "Sort which cards?" with "Cancel" or "Marked" or "All"if it = "Cancel" thenplay harpsichord "ee c"exit mouseUpelse put it into sortCardsanswer "Sort in what order?" with "Descending" or "Ascending"put it into sortOrderanswer "Sort by what criteria?" with "Date" or "Text"put it into sortCriteriaput "Click inside the field by which you want to sort!"set cursor to "Pointy Finger"choose fld toolwait until the mouseClickput the clickloc into SortSelectchoose browse toolset cursor to watchPut "none" into FieldSortRepeat with Fnum = 1 to 28get the rect of fld Fnumput it into Frectif ((item 2 of SortSelect) >= (item 2 of Frect)) and ((item 2 of SortSelect) <= (item 4 of Frect)) thenif ((item 1 of SortSelect) >= (item 1 of Frect)) and ((item 1 of SortSelect) <= (item 3 of Frect)) thenget the short name of fld Fnumput it into FieldSortend ifend ifend repeatIf (FieldSort = "none") thenplay harpsichord "ee c"answer "CANCELLED:  you didn’t click inside a sortable field.  Please try again!"exit mouseUpelseput "Performing"&&sortOrder&&"sort by"&&sortCriteria&&"on field"&&FieldSort&&"for"&&sortCards&&"cards."if (sortCards = "All") and (sortOrder = "Ascending") and (sortCriteria = "Text") thensort ascending text by fld FieldSortelse if (sortCards = "Marked") and (sortOrder = "Ascending") and (sortCriteria = "Text") thensort marked cds ascending text by fld FieldSortelse if (sortCards = "All") and (sortOrder = "Ascending") and (sortCriteria = "Date") thensort ascending dateTime by fld FieldSortelse if (sortCards = "Marked") and (sortOrder = "Ascending") and (sortCriteria = "Date") thensort marked cds ascending dateTime by fld FieldSortelse if (sortCards = "All") and (sortOrder = "Descending") and (sortCriteria = "Text") thensort descending text by fld FieldSortelse if (sortCards = "Marked") and (sortOrder = "Descending") and (sortCriteria = "Text") thensort marked cds descending text by fld FieldSortelse if (sortCards = "All") and (sortOrder = "Descending") and (sortCriteria = "Date") thensort descending dateTime by fld FieldSortelse if (sortCards = "Marked") and (sortOrder = "Descending") and (sortCriteria = "Date") thensort marked cds descending dateTime by fld FieldSortend ifend ifplay harpsichordhide msgautoSelend mouseUp</script>
    </part>
    <part>
        <id>56</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>138</left>
            <top>303</top>
            <right>177</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>28654</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Find</name>
        <script>on mouseUpglobal findAgainask "Find what?" with findAgainif it is empty thenplay harpsichord "ee c"elsefind string(it)if the result = "not found" thenplay harpsichord "ee c"answer "“"&it&"” was not found.  Please try finding something else!" with "Okey-Dokey"elseput it into findAgainput "Find string"&&quote&it&quote&&"--> Press the Return Key to find again!"end ifend ifend mouseUp</script>
    </part>
    <part>
        <id>57</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>190</left>
            <top>317</top>
            <right>215</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>30557</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>FirstCard</name>
        <script>on mouseUpvisual wipe rightgo first cdautoSelend mouseUp</script>
    </part>
    <part>
        <id>58</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>214</left>
            <top>318</top>
            <right>236</right>
            <bottom>339</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>PrevCard</name>
        <script>on mouseUpvisual wipe rightif the shiftKey is down then go prev marked cdelse go prev cdautoSelend mouseUp</script>
    </part>
    <part>
        <id>59</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>243</left>
            <top>317</top>
            <right>273</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17980</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>NewCard</name>
        <script>on mouseUpvisual zoom opendoMenu "New Card"autoSelend mouseUp</script>
    </part>
    <part>
        <id>60</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>280</left>
            <top>318</top>
            <right>302</right>
            <bottom>339</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>NextCard</name>
        <script>on mouseUpvisual wipe leftif the shiftKey is down then go next marked cdelse go next cdautoSelend mouseUp</script>
    </part>
    <part>
        <id>61</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>301</left>
            <top>317</top>
            <right>327</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26865</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>LastCard</name>
        <script>on mouseUpvisual wipe leftgo last cdautoSelend mouseUp</script>
    </part>
    <part>
        <id>62</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>339</left>
            <top>303</top>
            <right>378</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17989</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>DeleteCard</name>
        <script>on mouseUpanswer "PERMANENTLY delete this card?" with "Cancel" or "OK"if it = "OK" then doMenu "Delete Card"else play harpsichord "ee c"autoSelend mouseUp</script>
    </part>
    <part>
        <id>63</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>382</left>
            <top>303</top>
            <right>421</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18006</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Phone Log</name>
        <script>on mouseUpput line 1 of fld AddressBlock into theNameput fld WorkPhone1 into thePhoneput fld Company into theCompanyvisual wipe rightplay "You Rang?"go to "Phone Log"find whole theName in fld Nameif the foundText is "" thendoMenu "New Card"put theName into fld Nameend ifput thePhone into fld Phoneput theCompany into fld Companyend mouseUp</script>
    </part>
    <part>
        <id>64</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>425</left>
            <top>303</top>
            <right>464</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18022</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Word 4.00D</name>
        <script>on mouseUpgrabItplay "Type Return"open "Word 4.00D"end mouseUp</script>
    </part>
    <part>
        <id>65</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>469</left>
            <top>303</top>
            <right>508</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17941</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpgrabItplay "Well Done"visual iris opengo Homeend mouseUp</script>
    </part>
    <part>
        <id>66</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>469</left>
            <top>272</top>
            <right>505</right>
            <bottom>297</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17958</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Work Env</name>
        <script>on mouseUpUpdateItgrabItdoMenu "KiwiEnvelopes! 3.1.5"end mouseUp</script>
    </part>
    <part>
        <id>67</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>20</left>
            <top>163</top>
            <right>43</right>
            <bottom>193</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18009</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Dialer3</name>
        <script>on mouseUpglobal phoneStringput fld WorkPhone2 into phoneStringdialItend mouseUp</script>
    </part>
    <part>
        <id>68</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>20</left>
            <top>265</top>
            <right>43</right>
            <bottom>295</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18009</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Dialer4</name>
        <script>on mouseUpglobal phoneStringput fld HomePhone2 into phoneStringdialItend mouseUp</script>
    </part>
    <part>
        <id>69</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>138</left>
            <top>303</top>
            <right>177</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17978</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>FindLastName</name>
        <script>on mouseUpglobal findAgainask "Find what?" with findAgainif it is empty thenplay harpsichord "ee c"exit mouseUpend ifput it into findItset cursor to "Pointy Finger"choose fld toolput "Restrict the search to which field?  (Click on the field.)"wait until the mouseClickset cursor to handhide msgput the clickloc into restrictItchoose browse toolPut "none" into restrictFldRepeat with Fnum = 1 to the number of fldsget the rect of fld Fnumput it into Frectif ((item 2 of restrictIt) >= (item 2 of Frect)) and ((item 2 of restrictIt) <= (item 4 of Frect)) thenif ((item 1 of restrictIt) >= (item 1 of Frect)) and ((item 1 of restrictIt) <= (item 3 of Frect)) thenget the short name of fld Fnumput it into restrictFldend ifend ifend repeatIf (restrictFld = "none") thenplay harpsichord "ee c"put "CANCELLED:  you didn’t click on a field.  Please start over!"wait 4 secshide msgexit mouseUpelsefind string findIt in fld restrictFldif the result = "not found" thenplay harpsichord "ee c"answer quote&findIt&quote&" was not found in the field "&quote&restrictFld&"."&quote&"  Please try finding something else!" with "Flog Me!"exit mouseUpend ifput findIt into findAgainput "Find string "&quote&findIt&quote&&"in field"&&restrictFld&&"--> Press the Return Key to find again!"visual wipe leftend ifend mouseUp</script>
    </part>
    <part>
        <id>70</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>190</left>
            <top>317</top>
            <right>215</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev25</name>
        <script>on mouseUpvisual wipe rightgo cd (the number of this cd-25)end mouseUp</script>
    </part>
    <part>
        <id>71</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>214</left>
            <top>318</top>
            <right>236</right>
            <bottom>339</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18001</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev10</name>
        <script>on mouseUpvisual wipe rightgo cd (the number of this cd-10)end mouseUp</script>
    </part>
    <part>
        <id>72</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>243</left>
            <top>317</top>
            <right>273</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17981</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>CloneCard</name>
        <script>on mouseUpdoMenu "Copy Card"doMenu "Paste Card"end mouseUp</script>
    </part>
    <part>
        <id>73</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>280</left>
            <top>318</top>
            <right>302</right>
            <bottom>339</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18002</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next10</name>
        <script>on mouseUpvisual wipe leftgo cd (the number of this cd+10)end mouseUp</script>
    </part>
    <part>
        <id>74</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>301</left>
            <top>317</top>
            <right>327</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18003</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next25</name>
        <script>on mouseUpvisual wipe leftgo cd (the number of this cd+25)end mouseUp</script>
    </part>
    <part>
        <id>75</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>339</left>
            <top>303</top>
            <right>378</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17988</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>DeleteCards</name>
        <script>on mouseUpask "PERMANENTLY delete how many cards?"if it = "" thenplay harpsichord "ee c"exit mouseUpend ifput it into DelNumberanswer "Delete" && DelNumber && "cards, starting with this card?" with "Cancel" or "OK"if it = "Cancel" thenplay harpsichord "ee c"exit mouseUpelselock screenset the cursor to 4if the number of this cd <> 1 thenrepeat for DelNumberif the number of this cd = 1 then exit repeatdoMenu "Delete Card"end repeatelserepeat for DelNumberdoMenu "Delete Card"end repeatend ifunlock screenend ifend mouseUp</script>
    </part>
    <part>
        <id>76</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>382</left>
            <top>303</top>
            <right>421</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17973</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Mail Log</name>
        <script>on mouseUpvisual wipe rightplay "Horse Hooves"go to "Mail Log"end mouseUp</script>
    </part>
    <part>
        <id>77</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>425</left>
            <top>303</top>
            <right>464</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17343</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Application</name>
        <script>on mouseUpgrabItplay "Whoosh"put FileName("APPL") into theFileif theFile is empty thenplay harpsichord "ee c"exit mouseUpelse open theFileend mouseUp</script>
    </part>
    <part>
        <id>78</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>469</left>
            <top>303</top>
            <right>508</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>18004</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Off</name>
        <script>on mouseUpgrabItplay "Well Done"answer "I am through working with the Phone Book stack, and I am leaving to:" with "Finder" or "Shutdown" or "Cancel"if it is "Finder" then doMenu "Quit HyperCard"if it is "Shutdown" then Shutdownif it is "Cancel" then play harpsichord "ee c"end mouseUp</script>
    </part>
    <part>
        <id>79</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>469</left>
            <top>272</top>
            <right>505</right>
            <bottom>297</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17957</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home Env</name>
        <script>on mouseUpUpdateItgrabItdoMenu "KiwiEnvelopes! 3.1.5"end mouseUp</script>
    </part>
    <part>
        <id>80</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>487</left>
            <top>13</top>
            <right>508</right>
            <bottom>35</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17985</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>MarkCard</name>
        <script>on mouseUpif the optionKey is up thenset marked of this cd to not marked of this cdif marked of this cd is true thenset the icon of me to "MarkCard"else set the icon of me to "UnmarkCard"elseanswer "Change all cards in this stack to:" with "Marked" or "Unmarked" or "Cancel"if it = "Cancel" thenplay harpsichord "ee c"exit mouseUpend ifif it = "Marked" thenmark all cdsset the icon of me to "MarkCard"end ifif it = "Unmarked" thenunmark all cdsset the icon of me to "UnmarkCard"end ifend ifend mouseUp</script>
    </part>
    <name>PopBg</name>
    <script>on AddressListglobal PopUpList,newEntry,PopResult,whichAddressput "P.O. Box"&return&"(-"&return&"Apt."&return&"Room"&return&"Suite"&return&"(-" into PopUpList-- Custom Addressput return&"Alley"&return&"Avenue"&return&"Boulevard"&return&"Circle"&return&"Court"&return&"Drive"&return&"Expressway"&return&"Floor" after PopUpListput return&"Highway"&return&"Lane"&return&"Plaza"&return&"Point"&return&"Road"&return&"Square"&return&"Street"&return&"Terrace"&return&"Way" after PopUpListPopUpif PopResult ≠ 0 thenif newEntry = "P.O. Box" thenselect char 0 of fld whichAddresstype newEntry&" "exit AddressListend ifif item 1 of PopResult < 6 thenselect after text of fld whichAddresstype ","&&newEntry&" "exit AddressListend ifselect after text of fld whichAddresstype " "&newEntry&tabend ifend AddressListon CityListglobal PopUpList,newEntry,PopResult,whichCity,whichState,whichCountryput "Alameda"&return&"Albany"&return&"Berkeley"&return&"Cupertino"&return&"Fremont"&return&"Hayward"&return&"Long Beach"&return&"Los Angeles"&return&"Oakland"&return&"Sacramento" into PopUpListput return&"San Francisco"&return&"San Jose"&return&"San Leandro"&return&"San Pablo"&return&"Santa Cruz"&return&"Sunnyvale"&return&"(-" after PopUpList-- Custom Cityput return&"Chicago"&return&"Dallas"&return&"Denver"&return&"New York"&return&"Washington" after PopUpListPopUpif PopResult <> 0 thenselect text of fld whichCitytype newEntryif item 1 of PopResult < 17 thenput "CA" into fld whichStateend ifif newEntry = "Chicago" then put "IL" into fld whichStateif newEntry = "Dallas" then put "TX" into fld whichStateif newEntry = "Denver" then put "CO" into fld whichStateif newEntry = "New York" then put "NY" into fld whichStateif newEntry = "Washington" then put "D.C." into fld whichStateselect text in fld whichCountrytype "U.S.A."&tabend ifend CityListon StateListglobal PopUpList,newEntry,PopResult,whichState,whichCountryput "Ala -> Haw,Alabama,Alaska,Arizona,Arkansas,California,Colorado,Connecticut,Delaware,Florida,Georgia,Hawaii" into PopUpListput return&"Ida -> Mon,Idaho,Illinois,Indiana,Iowa,Kansas,Kentucky,Louisiana,Maine,Maryland,Massachussetts,Michigan,Minnesota,Mississippi,Missouri,Montana" after PopUpListput return&"Neb -> Ore,Nebraska,Nevada,New Hampshire,New Jersey,New Mexico,New York,North Carolina,North Dakota,Ohio,Oklahoma,Oregon" after PopUpListput return&"Pen -> Wyo,Pennsylvania,Rhode Island,South Carolina,South Dakota,Tennessee,Texas,Utah,Vermont,Virginia,Washington,West Virginia,Wisconsin,Wyoming" after PopUpListput return&"(-"&return&"US Territory,Puerto Rico,Virgin Islands"&return&"(-"&return&"Canadian Pr,Alberta,British Columbia,Manitoba,New Brunswick,Newfoundland,Northwest Territories,Nova Scotia,Ontario,Prince Edward Island,Quebec,Saskatchewan,Yukon Territory" after PopUpListPopUpif PopResult <> 0 thenif item 1 of PopResult < 7 thenif newEntry = "Alabama" then put "AL" into fld whichStateif newEntry = "Alaska" then put "AK" into fld whichStateif newEntry = "Arizona" then put "AZ" into fld whichStateif newEntry = "Arkansas" then put "AR" into fld whichStateif newEntry = "California" then put "CA" into fld whichStateif newEntry = "Colorado" then put "CO" into fld whichStateif newEntry = "Connecticut" then put "CT" into fld whichStateif newEntry = "Delaware" then put "DE" into fld whichStateif newEntry = "Florida" then put "FL" into fld whichStateif newEntry = "Georgia" then put "GA" into fld whichStateif newEntry = "Hawaii" then put "HI" into fld whichStateif newEntry = "Idaho" then put "ID" into fld whichStateif newEntry = "Illinois" then put "IL" into fld whichStateif newEntry = "Indiana" then put "IN" into fld whichStateif newEntry = "Iowa" then put "IA" into fld whichStateif newEntry = "Kansas" then put "KS" into fld whichStateif newEntry = "Kentucky" then put "KY" into fld whichStateif newEntry = "Louisiana" then put "LA" into fld whichStateif newEntry = "Maine" then put "ME" into fld whichStateif newEntry = "Maryland" then put "MD" into fld whichStateif newEntry = "Massachussetts" then put "MA" into fld whichStateif newEntry = "Michigan" then put "MI" into fld whichStateif newEntry = "Minnesota" then put "MN" into fld whichStateif newEntry = "Mississippi" then put "MS" into fld whichStateif newEntry = "Missouri" then put "MO" into fld whichStateif newEntry = "Montana" then put "MT" into fld whichStateif newEntry = "Nebraska" then put "NE" into fld whichStateif newEntry = "Nevada" then put "NV" into fld whichStateif newEntry = "New Hampshire" then put "NH" into fld whichStateif newEntry = "New Jersey" then put "NJ" into fld whichStateif newEntry = "New Mexico" then put "NM" into fld whichStateif newEntry = "New York" then put "NY" into fld whichStateif newEntry = "North Carolina" then put "NC" into fld whichStateif newEntry = "North Dakota" then put "ND" into fld whichStateif newEntry = "Ohio" then put "OH" into fld whichStateif newEntry = "Oklahoma" then put "OK" into fld whichStateif newEntry = "Oregon" then put "OR" into fld whichStateif newEntry = "Pennsylvania" then put "PA" into fld whichStateif newEntry = "Rhode Island" then put "RI" into fld whichStateif newEntry = "South Carolina" then put "SC" into fld whichStateif newEntry = "South Dakota" then put "SD" into fld whichStateif newEntry = "Tennessee" then put "TN" into fld whichStateif newEntry = "Texas" then put "TX" into fld whichStateif newEntry = "Utah" then put "UT" into fld whichStateif newEntry = "Vermont" then put "VT" into fld whichStateif newEntry = "Virginia" then put "VA" into fld whichStateif newEntry = "Washington" then put "WA" into fld whichStateif newEntry = "West Virginia" then put "WV" into fld whichStateif newEntry = "Wisconsin" then put "WI" into fld whichStateif newEntry = "Wyoming" then put "WY" into fld whichStateif newEntry = "Puerto Rico" then put "PR" into fld whichStateif newEntry = "Virgin Islands" then put "VI" into fld whichStateselect text in fld whichCountrytype "U.S.A."&tabexit StateListend ifif newEntry = "Alberta" then put "AB" into fld whichStateif newEntry = "British Columbia" then put "BC" into fld whichStateif newEntry = "Manitoba" then put "MB" into fld whichStateif newEntry = "New Brunswick" then put "NB" into fld whichStateif newEntry = "Newfoundland" then put "NF" into fld whichStateif newEntry = "Northwest Territories" then put "NT" into fld whichStateif newEntry = "Nova Scotia" then put "NS" into fld whichStateif newEntry = "Ontario" then put "ON" into fld whichStateif newEntry = "Prince Edward Island" then put "PE" into fld whichStateif newEntry = "Quebec" then put "PQ" into fld whichStateif newEntry = "Saskatchewan" then put "SK" into fld whichStateif newEntry = "Yukon Territory" then put "YT" into fld whichStateselect text in fld whichCountrytype "Canada"&tabend ifend StateListon CountryListglobal PopUpList,newEntry,PopResult,whichCountryput "Australia"&return&"Austria"&return&"Brazil"&return&"Canada"&return&"China"&return&"Czechoslovakia"&return&"France"&return&"Germany"&return&"Great Britain"&return&"India" into PopUpListput return&"Ireland"&return&"Israel"&return&"Italy"&return&"Japan"&return&"Korea"&return&"Mexico"&return&"New Zealand"&return&"Poland"&return&"Spain"&return&"Switzerland"&return&"U.S.A."&return&"U.S.S.R." after PopUpList-- Custom CountryPopUpif PopResult <> 0 thenselect text of fld whichCountrytype newEntry & tabend ifend CountryListon PhoneListglobal PopUpList,newEntry,PopResult,whichPhoneput "200's,201,202,203,205,206,207,208,209,212,213,214,215,216,217,218,219" into PopUpListput return&"300's,301,302,303,304,305,307,308,309,310,312,313,314,315,316,317,318,319" after PopUpListput return&"400's,401,402,404,405,406,407,408,409,412,413,414,415,417,419" after PopUpListput return&"500's,501,502,503,504,505,507,508,509,510,512,513,515,516,517,518" after PopUpListput return&"600's,601,602,603,605,606,607,608,609,612,614,615,616,617,618,619" after PopUpListput return&"700's,701,702,703,704,707,708,712,713,714,715,716,717,718,719" after PopUpListput return&"800's,800,801,802,803,804,805,806,808,809,812,813,814,815,816,817,818" after PopUpListput return&"900's,900,901,903,904,906,907,908,909,912,913,914,915,916,918,919" after PopUpListput return&"(-"&return&"Canada,204,306,403,416,418,506,514,519,604,613,705,709,807,819,902"&return&"Mexico,706,905" after PopUpListPopUpif PopResult <> 0 thenif first char of fld whichPhone = "(" thenselect char 1 to 6 of fld whichPhoneelse select char 0 of fld whichPhonetype "(" & newEntry & ") "end ifend PhoneList</script>
</background>